#!/usr/bin/env perl

use utf8;
use strict;

while(<>){
	chomp;
	if(/match/){
		print "Matched: |$`<$&>$'|\n";
	}
	else{
		print "Not match:|$_|\n";
	}
}
